iitaij $]y 


E 


>«21l j®Dim^U^Uauwl^* JjV A 
ivj jSUj ji iuUijI i«8 jiSi-i (IbjU&l ) UiladukyUddu j ( = ) u2£2 # jS+J .Y 

””=^(ijjS2U3l^y«llul^Btl-u *=>^;i«2jidbj2u«3>JI uljrukUl -! ggj^gj] 

False H^all ^Q^uSkUl uIjtulUI - £ 
SJHj Dim 4U*j j£U ,>>jSI j* jil^X 1 jSUd - T 


t ul^LUI^Uai^l 


g»Q>4l >1 JjwiH JUalwl I* gj«4l jSUVl JU* >Uaj idM 


Nil 


> (Local Variables) 24^1 ut>blll- 


*1>*VI Cut j 'diSj 3 Button 1 Click &dpttl Jl» £qm £td> » l>* I 44 j^Vlviiiul^ii# 3 

Button2_Click £ Jail ji« 4>?VI 4U4L»l>j U lil ihui J&u 3 b2& 

WKMmmrnmnmmmhmm' 

V 3 5»t5j4l ul*lIj^i JSyi 4 *Um 1 «I JSUj j public class Oum 21I jlbj ^ l*ic u* 

4j 3uj&u 4I f l>^)h fi^ul Jta l^UdJi juuj 
(■M unaHiiiKT glFrMj 

at* jllidui I4I j Data Type jLu £jj t^lj RAM jjjgiifll SjStSu 5jjaa« jSUi jx3>Ufi 

guQ>UI uU4ajj>*lji jyytJJ ^ui «Udi >£u ji jSU j V <tu£il 


Ujull24 >«i j fjtfll 2 ajui 3 2 L&>VldLujlallAbuS ibjgoilu&fijljiit jbujl taiuaS^LutUjJIQjIjSlt Juu 


faa Uicj^Xl»U3!Data Type jlu m—■ Ut1*4 ,+ueM >j uwljill j^j^X'^-' 
uU4a3j>«lii>U^y>.(i»Uj) j4jj j) j&j V(4utj ) ConstantQj(ltlZ«JI-T 

a 


jtjAtl jfi j^>U iuUJIiiLwJI 


Const Qjllil >mI (constant name ) As ( Data Type jlull gjS) = Value ^u^ill 


j!«j>ttjYl «4>141 =1*54 U^Lu jjfc \Ja j£?>b* jMioauJI 2 Uf? 3 Jriil»ji QjtfJ 4*41 juju jl (Mj Ig Jmaj 
jm4u!I>U« Ifk^ik =2u}4 j j*jVl4> 1 UImaII 4* jjttji ujlilljijtfttl »*l 

^ .323 

.11&-V ib->.^ji41c ^X' >bji Variables utgiltU jSLw .t 

ju, »Uj 1 ^uuj ji JSUj ( 4*44 j 4 kUI 1*4 jU>! dl^lj ul >11 j* id* jmmMII SjUI JSUj .T 

.uij (£1 ^ ^»U>4t uUUa 

>ujuj ji Xhwtjy ji jyuL»j jl Sj> y luaj ji >SUj jqu4>yU) .T 

JuiL^^u^yuU^iUibaSAuUL.I V B24 >Ijj- t 
(' )lribtl jl REMUKxU&L Code Window,^!»^lj^ul^^UIItUS-T 
2alil Compil er^JuabMMljjCode j)j^l^jjjgft ( >^ j|jSi>uiLiVUJjUMaSi)UJS-r 

c cJi^ ^ a 4< a ^-/ j / ^=>it±uy ^ 


:^] 


4 




3 

1 


I 

:^] 

4 




1 


3 

1 


-1 iidtHj okaU $!]jj[ ^[ 1 ] $4 )^~a)Z^ ) 


RampjdU^SJ) uijlull ^hi jj}aS j*2b I^UI ^ jnynV I 


(j^kUb >>m <i>« ulll uUUtl ) 24 j>I1I &-U.1<> >j>m«£ 1I »>SI4 ji«VI >1 JmUVI - T 

vwfltl Siy> j^>^hLi) (jit) H|rthi tl j XuUirtl) uUU4l -T 


VB^tjM J4UH1 dauj tfiii ubuJi tijii 


<J1a mrtn j t^jLi^ ^ U ^ l ubL»4l »t>^jvMJ ^St) ubb4l > <L»i>11 ubbjll t Vjl 
( (Long-Integer-Short - Byte: ^w»i4l2 Lm4>IIuQL4I -1 

(Decimal -Double-Single)^ !}j>tUll>l|>Xt lk«i>ll£bU^I-Y 

>tS>l uULyJI 3iji* uUU4l »luQL4l ^ Ajij^luULyJh Lutj 

( Char - String) lijyitl >j>m («>U«Jlv*i>- ^tb>4l>«4> - i 4 j 41 I>« 4 > ) Ji« 

(Boolean-Date-Object) *1 /tiukwuGLu V»ail abU41 1 CUtS 

. (Data Type) jtu ^ 3 ] (Type) ^ jj>i jli* ^ t 


Falsejl True >ulL« Boolean 

Xl«d)LM^j)CiS4j^j)lj | >j>M>w4Date^il .t 
(lufliU^J^b^oi^) String Text3 umU ll .T 

(False jiTrue UjUi^’Utlp') Boole an Uibl^jj AutoSize HumUII 4 
(2MMM>t|>lJ^iji&p') Integer UibltAjj Width3uw(iill .0 


ControlName . Property = value 


ttfinj properties 


4 Data Types utiL4lfcjiJSi>U 


^ Ai*aw W»^4y»MI^41l^j<iaibgtt^^riiSI41^ig»^ (BytesJt 4 

(bytest) Jamj4*1 jmImIJuxI ntegerjii>j^iM&ll«>Sri 
(VI jmII 3 yjjVl jmII ) 4j^£UI jjyul^LUI>u4l jjd*- «4 (Range i All) . Y 
(Y 6 eai*y4ajj(yMiij^)4li^(yjjVltbilO^lJwByte ^illjli 


vb.ne t Jijdu Jt&jJiil Jb uI^ulUI Wi (jl jaI 


. ( _^ULh4l lib>Atl) jl ( A-Z.a-z )3a>4LnuXl 4 j>m1I j* «i.> m>4I1I>«mI IJuj ji um - \ 
(t)>44UVaiVA jl (.)lib2ill jiawiS^ti-uUitAjl>>^l^>«Vl^j3bu^&^d^ .Y 
.Xdtehlib>Mll underscore _i4^j>tS>lj jj>^^^X'ut%^ 
string .decimal .single .Long .Integer.double ^^IuUJ&II^UpumU^imj V .t 

Me- 

»ljSM« ^t£>WlVl JJjji Jm^VI j A . 0 

SHI 

(Data Types) & jx^UtfiJaxu 41cj%cVl j4a Ram>2jM*£tl4>Slj^»>jMMjSUi 

3uilJ3bl lL«4i jl (>SUj j g« b>jll 1 Uji I 4 U 44 >«Sj j 


Infill 


Dim (variable- name ) As ( Data Type ) = [Initial Value] 
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a^SylfifUjdijjFalse ifa^jiTnieju»«(ul>tfUj4^30j>Sjl^yUI Code jjS j*3* d 

Variable jta&tj) Property 3Lu«l£- 


! lUijMU 
MsgBox)aiU4l^j>> 


jiJA&iitgiLai >Uaftj ji JjLujjijai 4^1^11 JtejtJauMjjt AlLaip) gj* ( Message Box ) 

( ”MsgboxilU 4l”) Sj*QU u2S3 3 J4&5 ,Ujig*0*JI 


If.TheniUt 


Select.. .Case>lJ&LtfU 


.5 

*] 


i 


If (conditional Expression yfajj^uiu jlfe>&) Then 

Code uljw (True)l»j&tgjti jjSjUJus laiuiij v 

End if 


If.. .Then.. Else 2U> 


,u.i 'Jjijj -~^j j • Jujj 1 ,c j (u ■ i) jdjJu 4ijv*kj2i$ 

No jl false yesjltrue h >£JI3*4ujtf Ijj^gbJuil 

If conditional Expression (^bj&juaj jlhj*) Then 

Code(l) ul>«(True)l>jMll^U l 3^Utl^(AkUi^>idb (l Ih jaIjVI 2&j+m 

Else 

Code (2) (False )^I^U^UJLi6U^vwJ ( pi 

End if 

^•ijjuiau^ 

End IfgdajvOtVj J^jjk^^aLUJI IfaL^j^ajOSjSUj tt 


% 

i 


a 

1 


IlijaLt 




JHj Variable Select... Case d 

tiJiU uVUj>I j JjIJj if? $ iJb- ^ j^sumu .Y 
JiSS Code Jj&JI Jafii 4ji US .T 

End Select 3 l4Sj Select...Case A 

( £>U£l j! <$!) I 4 I* UO> Case else £a «UtiLtfl <£u .0 

as 

Focus >>V)-\ 

$* 1 It JaL4I V* gl JUiSt&l «UuVl»jL?> «Um () j* 

i~U ijUjTextJuwU- J*r <^u ” ”i*^)lu^llil TextBox Text Im&I - Y 

TextBoxaliiU2i2rfLJIu5la'Utlyiljia*i empty stringaj|£2Ufc>»’ 

( cJt-(d^ ^3c|.(dL(j / ^ Limy ^ 


.5 

iS] 




-a 


% 
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3 
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(dHJ cflfcall ^]|j[ <_LiutiJ $4 )qil 


UuU*?-5U 


jiaih ju kjjU>«JPfcLuJ (&) (kjjJIJ*I m)2U}U; .1 
tjAj jsSjUA vbCrLftj^ntl aUi&Jt .Y 

vbCrLf=Visual Basic Carriage Return Line Feed jWaS^I 
Jj$t» Code jjSJIjJay# jlSliiaJl^^jJauK ) 1»M6>»JA2 u<u .A 

Code j*^ Jj-"j -^•"Q' < o<j r ^-->* 

. yuil Fom^j>ai ;j*b (jsjpj Sjjyrfl uUifli ,> Me 3uiS A 
Event Procedure Uyi Event Handle r4iMllglU4 ,v 


1 


U^luUUalliUdJjub^ji 


ua^isaj^ii ump> lj}Uj uu jj aaisMi oiuuti 

jmVIuUU^.T 

jUJt ) a < .ns h j u^ai uu^. r 

^wg 

Logic Errors ^iil j* > Ua^-i pu V J±* uujUb ILuImmII uULmII 2uoS2 um 


(JdhbUll 

4 A>uai]| ^ib 


Ljjda 

c> 



A 

mod 

/ 

* 

- 

+ 

JdjLall 




»ikp>vi t»ii» 

jjjbliiaLu IDE UJaUj 
U aa> /l &*u V 14 U 2 UUISU! 

UM^kM k?- 

UmII 

ajOS JU£ 6dM yill fUtf-Vl 
a«ddm £& Sj^MjCode 

j3uiiuxu^i-\ 

Syntax errors 

UjSttl AjSlI AdU>- 1 >4 UM - \ 
|JU^ 

(jMubLy <jl£ jmQjjJ 1 jUS^I - Y 
> 4SI2K >Oi «2* W2 «m > JS121I 

fUa^i ijfjjdt 

jjia UjUjE xpressions uI^uju 

LK& jdyy^uDI ^jtddLt 

uUUaII hU^3b^jb>ljil^l >JL6 -1 

a«fettidfc^h-Y 
Logic Error 

Try/au^ 

(flka-Vl il£tt*>J£Uj) Catch 
Controls ul^i>«lJMuMl-r 
Properties 4iaiU» 

i^Jl* jjSi /;"*'* JicitJM - \ 

>Jl^L4l JU4I Jjj 

jdkUl jLu jx i4LLm 

Jgi&UI 

Runtime 

Error 

^ JLr 1 ^ ^44^-/^ / ^[vS.^ ) 















































































.Sj^JSyi Stepl«JSyb ttl fcbjJI (jgfiil) 22MI Alififcb) y* Next >ftl a*£ j- \ 

iULrJj 

ForSUif yOyStl jttfti ji Code ajSIIjI tfefaiu^Jyft 
Next^Vlybtfidl Code aj&IuluujaSUJI«>£ i>idl >uj 2lmA lfek£-u 


JT 

*] 


Do while... loopALur>aiuuiJ 


.luu 3 >U« JU-jI Ju£lL)lIjfidt Subtil gjjattj jfalS JSmJjI j£bl ul>• Ad£ 4 i jm >d£ Alb- yi 

Do While conditional expression 
Code 
Loop 


Do whileakjdlkUH AiuaJi 


UuUa?4U 


Fomi^j>wtl»^(j>Mbajae Class iJumoj U&»jjj* Formg j>w SuibiaLfl! ju*- \ 
toj*£jFor... next j If... then J^jLBlock^y uuUjaj^uyij&u-Y 

MMtsagsii 

.uU*bItlj>»ljVl 4 a liMUJAM >uu¥l liUkfUJGwl Jua j Ux«l um Code flUialllj >djfrl Itpyp 

E 

ajju yA j Functionilldll - r 


Visual Basic .NET <£ ul*lI f Iji! 


’iktMuiyu 'i pj Subyfcjill ^1ij^tfl - \ 

IdWMUJIRWW 

uljtl JuJ*)l UtjlfiU^wl JSUjjSJ^IjSJ 4 l^k Jlu -1 
uUIIjeJH 4b «l£duuil jSUi ^ Code 2uUS>l jSu^jj - Y 


Subfij^yi 


SubfljAjiUVI y» 


Subfi^i^^^ua^u 


Class* 4U2 Sjj£Lm Code a^S UjjJ U lij 2JU- 1 

>»Vl >»jJ lil 4bJuu>«j ji*j 4*f j4j#II ji Codejjill ^«nc *^ un Y 

Sub Name (Parameters )2ulJ*j 
Code 

*l>*Vl2b4i End Sub 


ItUb ?lfiJUtfl JuU Atbu Lulj &M4 5u$i*« j$Suj £jU-y« 41 USIrnl JUdM ^i\ Ajal I yA 

#1l>fVI ajS J£b 4*UnuU V Procedure *1>*tfl 
211 a jl Constantojlu ji Variable,^*!* ji 3j>*«3UMi j$Su jl Ul 


Procedure ft 


Function 

Byval *A4£Uu buUjll js \ 

Subfjitl j*»)j^l juju Event Procedure&Ja dl »l>?l- Y 




■a 


^30 
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3 
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MU 




a 




'cb 


a 

1 


^oJllJ iitilJ $jy <-iiutLl )^il 


ComboBox «Listbox5lj^tl 




uuUi^^u 


ItemsluaUiH Combo Box j ListboxSI&i Items^allfc AiUal >«Ij ,t 

ib-b JjVI juuJl jltfl } j4«all^ Coml>oBox3ljVl jl listbox SI AVlJ»lA>wi>ll iau .Y 

iasA(^4)>i,yia«j( 

yiau^l SelectedbidexChangedjAListboxSlAVl jComboBoxSlAVb jabdl^Jbdl .Y 


AJbdl jukII uM>i Indexy/^a ^uu jua 

Selected Index3uubdl i> AJgdtl >ui«lCa>ujub 4 
aiayij^ia juu^ auvAddC )au^ i .0 
«bVIubpbw Clear!) jj^ll j A 


Loops a^ij£aiai2uti 


Do..Loop3uLur - Y 


ul jtly4 AUat^ um jl AtbM Code ajSjIj S3 yA 

E2| 

For..Next3yLur -S 


CounterAktall 


\AL*A*d&ted\j jSj !t ul JA uUfitgfJ^I 4 JLUU«U ^ 2 )^UbU 


For... Next jljgJI^Lu; 


.ul>ll aJm« jgsuCode jljSu ^ u£jj UJua>jAIuj « ajJmII jIjSull yA 


For Variable = Start Value To End Value [ Step Add Value] 
Code 

Next [Variable] 


tAulfe^U 


[ ]JSmJII^4a[ Variable ]j [ StepN]Jl» ^>«,^j5^uUJSaij^5ui>ulUljJl2fcuallyi-l 

W5j^jte^^ia^i^4Siyk^aoiaAi 


a^i^Q^ajbihiaAyi^Di^ia^atu-yi j-y 


jIjSuJSJ w\ jIJmjJ jpAlJAtlstep) «Ab31l jIOaaIjUS jl>U&wl>O a 2tU-yi-Y 
(For) ♦ y AJtfdl jyltl> 4 ulyiub jfu (Next) ja (Variable )4jiSil>ul3bCiS>*a6SlU-yi^-t 
Uu*«jljSStl ul>«AJ^l&jM^U’y^For...Next2ULur>*Jauwu-o 


aj4a)^^^%lJ^ll^j^ jSU^AA^)j)a^ji3jb^lyi«jyaii(Step)Xusauiby^-n 

2utU (step) »Ab)lbUJi ( jfu ji upu lUMUilAyij 


LAjjdu um lid u((UkU j] 2 j>ma ji Ifufua^liji jjSj ji «Ab)ll jl IL^itlji IbUdl 4«dhi JS1 jSUu - Y 


(Single) ^dl jl>32ddl jh 



































































































iitalj ^L-LUjliJ $4 )qjJ 


Jaa£il-o 


4dUjjl£fth fajLy^il > JAltaJ JLtfSU mJ^Lu j£djU^ 

uuy£l\ -t jrlj^-J- T -1 ♦ jS jaU! - U ji j£j 




M1J 

*3 


Fonims.lujjtSfth ubaliii - r 
Blogger .Sdu^j&fth ulijJil -1 


E.Mail .^j$jiSJI ajjjil - \ 
Instant Message .ajyiil JiUyi - r 
Face Book jl>ajfiUa?Vlg*l>tl - o 

PB^FPWjjg 

iujjsjyia^itti-r Ujj&xiu&uai-Y 

yjjj&M Jud£ll - Y 

m 




a 


Jtj&tjiA uamjjmZUS jj$£j j^aSO - Y 
uU^Im^I jj*jj»aa-Y 

Ly^i^jubUi £» aujti JUiiiajfi jaimui ji tia^a* - * 

fiaju)tl Ada (3ija2 d£ jdbiaJb&Maa - 0 

uuittl nib’ll jSLuiiajaiUj JLoU tn«23^ -1 
Oiju)h >«llaMUl ait diUw Uj >•*! elj £>lfal-Y 

sail oyojti as*& ^ jj^sri > L*ju>«jb-i - <\ 

uU^lmU ^ * 


(344^1 1 ) 4 ^litii^l]} ^JLl4=*) ^ iad oJ^j Qjf ^Lj) 


X -^4£lL/3 / ^ailiuy [ ^ . 
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To 
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\JT 

NJ 

*] 




To 
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1 

lu 


■ ^4iIlJ iitJJ M cutiLl j^ll a^^ )- 


SuMUjpu ^Parameters 


Function ailail jaj^uyi jo ia^ll 


1^-Umi ZwS Alt gbyUw Code ajS Uuai jlS U (jj ait^ ^ - \ 
-u.r.^ h,-. i, .u- v.; n.i i u.?... y .. Jiuai^^aUySiO^I - Y 


Functionailail ^ j^k)U 2uUl) a>uail 


Function Name (Parameters) As DataType 
Code 

Return Value 
EndFunction 


Function atlJJI j Sub»t jgjhjtufoli 


Function ail ait 

Subfl^Sl 

(Sjb4i)a«dMdiaj .\ 

*&Lu .Y 

(gjij ai j<idj) a^jiSj jjau v ,\ 
jrtjunao au? i^l plyhi^yUj V .Y 

(^UD^ia 



Function Hi) at) j Sub»lijgjtl ja j^a¥l j* tiajil 


Function ail ail 


^yLud CodgjjS Uaai jtf U lajaib- \ 

a*£i & 


»Uj 1 ailaii j* gaau ^aii l^Sii >iaSUl - y 


>a*aiMii 4?i j»i ji ybjdi utwbj iuiuj 


Sub»l>j-yi 


jjg»« Codejjg Uuai Uljjaib-^-i 

Classuujyalil jisi ^ 4Sjt3S 

Jjgu^tg; Codgj^»ajtt^jjiajj-Y 

>tVl >ji lj{ AUJMJvU (>J 4A^j4j»lji 


Functional ail j Constant ujliil j Variable jtiitl,- 


Function ail ail 


Ujlj l^i a# i jimm jSUj V 


4j jjiu a«dUi gu3b vtJlmJ 


Constant Ojdil 


1 4 * v* j£tJ 

kai JXa?< »Lj1 




Variable jriilil 


j^&yi »UjI j*4*m jZ+j 
g«Cyjil uUJaj ;uaij jm >Uj1 j 
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Dim x, total As Integer 
X= 2 

Do While x <= 10 
Total = Total + x 
x = x + 2 
Loop 

Labell .text = total 


W Y Atd£?l ............. yyirtjyQjdllte 


........ Dim . >ij&uux, total ,31^0211 

. Integer .x, total ot^aai 

uu» 4oj«y rwrtntjtjg>»i do while ..loop>«vi 

true bjUi 


? Labell 
Dim Sum , N As Integer 
For N = 0 To 50 Step 2 
Sum = Sum + N 
Next 

Labell.Text = Sum 


ylJ ♦ j* jUaVI 




For.. Next 


tJAlnU \* ylj \ AlJtiftt £$«3 m 


a£JI 


Dim a , Sum As Integer 
For A=1 TO 10 Step 2 
Sum = Sum +A 
Next 

Msgbox(Sum) 


$ Labell Jp’iidxajj v 


Dim Sum , N As Integer 

Dim Sum , N As Integer 

For N = 1 To 10 

N = 1 

Sum = Sum + N 

Do While N > 10 

Next 

Sum = Sum + N 

Labell.Text = Sum 

N = N + 1 


Loop 


Labell.Text = Sum 


A 4dbtf|j2^)A T* yifi 3 Luja}| 3iUI «aU yfl utU> ujrtjji £bij 3&jat 2 dm jd! A$S 2 uI2£j>«2 

SifjA Yo yA 2U{2h UL& Labe 11 jljifi jj>i 

Dim AR As Single = 30 
If AR >= 25 Then 

Labell.Text = " gfOuJUaJI" 

Else 

Labell.Text = " LMljutUaJl" 

End If _ 

^ (JUl=3 ^44^(3 / 
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1 
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Age=25.5 
Mark=90 
ff Age<26 Then 
Age=16 
Mark=100 
End If 

Total=Mark*2 


(dll] ciiziil $]jj ^_LL4j[iJ )^il 


u 1 -^*"9 2uiti j Jam 

I 6-5 90-u 25.5-i: <|jLuAge jgi5il2Ua2-^ 

25.5 -5 100-u 90-1 :^$luu Mark ^ulUI4w 2 - Y 
False-j True-u 25.5-1 1 Age<26l»>it)3UJi-t 
190-5 180-u 200-l trfiU3 Total^BtllUJ-t 


Dim First as integer =20 , Second as integer=40 
Dim Third as integer = First + Second 
Dim Total as integer 
ff Third <=50 Then 
Total= First + Second+ Third 
Eke 

First=30 
Second=50 

Total= First + Second+ Third 
End If 


Arabic=30 

English=20 

ff Arabic>25 Then 

Total=Arabic +English 

Avg=( Arabic +English )/2 

Else 

Arabic=25 

English=22 

Total=Arabic + English 
Avg=( Arabic +English )/2 
End if 


Dim X, Y,W,Z as Integer 

Z=5 

W=4 

For X = 2 To 4 Step 2 
Y= Y+X 
W= W-l 
Next 

ff Y> Z Then 
W = W/2 
Z = Z + Y 
End ff 


30 - First ^i£ttl3UdUi -1 
50=Se conduit! 2u*i -1 
140-TotaLg£ttl2Uji-Y 
false ^ Third <= 50jjuaaJli*AS-t 


2luLJI ult-diUI ftuitlili t 
(X)3U^jlK)3u^^i 
(S) . Arabic ^£UI3U^S 

(X) .rr^jUj Englishism i«J5 
S )TRUE^ Arabic>25^ai«g3U 
(X) tY^UiTotal^£ttl3UJi 
( X) .23.5 £jL«j Avg^Sm 2UJI 


Y^iltl 3 Lm 2 —Y 
WyA Z^altl 3 iwi-Y 


^ / Winjy[ ^ 















































































Dim i, Sum As Short 


Dim i, Sum As Short 

Me .ListBoxl.Ite ms.Cle ar() 


Me .ListBoxl.Ite ms.Cle ar() 

For i = 2 To 22 Step 2 


i = 2 

Sum = Sum + i 


Do While i <= 22 

Next 


Sum = Sum + i 

Me.ListBoxl.Items.Add(Sum) 


i = i + 2 

Loop 

Me.ListBoxl.Items.Add(Sum) 


A = 5 


j 


For n = 1 to 8 Step2 

B = A + N 

Next 

1 (ijUj A^ulUI © 

SV ifjLa B^Ettl © 

) 

) 

T 

Nt 

If N > A 

^ i£$UjNjg£tttltJi 4; 

) 

VT 

4=4+1 

End If 

true N> Afajwllgulj 4; 

) 

i 


Dim N, K , C As Integer 




C= 10 

For N = 1 To 10 Step 5 

K = K + N 

\\ NAmA © 

Y Ej^ukUl 4<uA © 


ho 

Next 

IF N >= C Then 

C=C+1 

\\ ^UjC^ttttlfii © 
true(^U jN>= CbjiltguG © 


1 

3 

End If 


1 

Dim A , B , C As Integer 

B = 0 

C = 6 




V^UjC^aSU^UdJgjO-^ 



For A = 1 To 8 Step 4 

^ AjmHI 2 Lvui gjb - Y 



B = B + A 

NextD 

IF A > C Then 

TRUE^Uj A> 4 byJIgjli -y 


:^3 

C = C + 1 

End If 
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Public Class For 

Function Sum ( Byval First As Single , ByVal Second As Single ) As Single 
Dim Total As Single 
Total = First + Second 
Return Total 
End Function 


End Class 


* yJj U j» gj£uwt 

(Secondj First ) f(#tfttCiAiiiMj-Y ( Sum) >1,>rtftx#M [] 

( Total)□ 
Single (2**tjJl2Uduiil - fly^VltijUj-ftj^VI) 


Public Class Forml 

Sub ShowoddorEven ( Byval Start As Integer , Byval Last As Integer) 
Dim i As Integer 
Labe 11 . Text = “ “ 

For i = Start To Last Value Step2 
Labell . Text = Labell . Text & “ “ & i 
Next 
End Sub 


End Class 


t U £jU 1I tyttl gj&Ut 

(Sub) (Sub 

(Last j Start) ( ShowoddorEven) ftj*Vljwt-Y 

(End Sub ) ftl>rVI 1 (Integer) ft 6 


Function Area (ByVal Radius As Single ) As Single 
Const X As Single =22/7 
Dim Res As Single 
Radius = Text boxl. text 
Res = X * Radius A 2 
Return Res 
End Function 


t U £jLJI jt gyiltf I 


( Functionillall) #1y t £$S - \ 
(Single)lkji (Area ) 

(Single) flytftbiU$£ji-t ( Radius) ftytflliAbiUj-Y 
(Single) 4fijj(Res) j2iy I jitiuuail-o 

(End Function) fty VI jilfiVI Lip - "V 








































































